home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / lib / c / sync / sun4.md / RCS / Sync_GetLock.s,v < prev    next >
Text File  |  1989-07-31  |  3KB  |  131 lines
  1. head     1.2;
  2. branch   ;
  3. access   ;
  4. symbols  ;
  5. locks    ; strict;
  6. comment  @| @;
  7.  
  8.  
  9. 1.2
  10. date     89.07.31.17.48.11;  author mgbaker;  state Exp;
  11. branches ;
  12. next     1.1;
  13.  
  14. 1.1
  15. date     89.02.24.17.03.00;  author mgbaker;  state Exp;
  16. branches ;
  17. next     ;
  18.  
  19.  
  20. desc
  21. @Thirteenth Kernel.  sun4 finishes vm init now.
  22. @
  23.  
  24.  
  25. 1.2
  26. log
  27. @Sun4 locking.
  28. @
  29. text
  30. @/*
  31.  * syncAsm.s --
  32.  *
  33.  *    Source code for the Sync_GetLock library procedure.
  34.  *
  35.  * Copyright 1988 Regents of the University of California
  36.  * Permission to use, copy, modify, and distribute this
  37.  * software and its documentation for any purpose and without
  38.  * fee is hereby granted, provided that the above copyright
  39.  * notice appear in all copies.  The University of California
  40.  * makes no representations about the suitability of this
  41.  * software for any purpose.  It is provided "as is" without
  42.  * express or implied warranty.
  43.  */
  44.  
  45.     .seg    "data"
  46.     .asciz "$Header: /sprite/src/lib/c/sync/sun4.md/RCS/Sync_GetLock.s,v 1.1 89/02/24 17:03:00 mgbaker Exp Locker: mgbaker $ SPRITE (Berkeley)"
  47.     .align    8
  48.     .seg    "text"
  49.  
  50. /*
  51.  * ----------------------------------------------------------------------------
  52.  *
  53.  * Sync_GetLock --
  54.  *
  55.  *    Acquire a lock.  Other processes trying to acquire the lock
  56.  *    will block until this lock is released.
  57.  *
  58.  *      A critical section of code is protected by a lock.  To safely
  59.  *      execute the code, the caller must first call Sync_GetLock to
  60.  *      acquire the lock on the critical section.  At the end of the
  61.  *      critical section the caller has to call Sync_Unlock to release
  62.  *      the lock and allow other processes to execute in the critical
  63.  *      section.
  64.  *
  65.  * Results:
  66.  *    None.
  67.  *
  68.  * Side effects:
  69.  *      The lock is set.  Other processes will be blocked if they try
  70.  *      to lock the same lock.  A blocked process will try to get the
  71.  *      lock after this process unlocks the lock with Sync_Unlock.
  72.  *
  73.  * C equivalent:
  74.  *
  75.  *    void
  76.  *    Sync_GetLock(lockPtr)
  77.  *       Sync_Lock *lockPtr;
  78.  *    {
  79.  *        if (Sun_TestAndSet(&(lockPtr->inUse)) != 0) {
  80.  *        Sync_SlowLock(lockPtr); 
  81.  *        }
  82.  *    }
  83.  *
  84.  *----------------------------------------------------------------------
  85.  */
  86.  
  87. .seg    "text"
  88. .globl _Sync_GetLock
  89. _Sync_GetLock:
  90.  
  91.     /*
  92.      * This TestAndSet races with the assignment statement in Sync_Unlock
  93.      * that clears the inUse bit.  The worst case is that we incorrectly
  94.      * assume the lock is taken just as someone clears this bit.  This is
  95.      * ok because we'll call Sync_SlowLock which does the check again
  96.      * inside a protected critical section.
  97.      */
  98.     /* prologue */
  99.     set        (-104), %g1
  100.     save    %sp, %g1, %sp
  101.     /* end prologue */
  102.     mov        %i0, %o0        /* put ptr in arg for next call */
  103.     ldstub    [%i0], %i0        /* Atomically get value and set it. */
  104.     tst        %i0            /* Test it. */
  105.     be,a    ReturnHappy        /* If not set, just return. */
  106.     nop
  107.     call    _Sync_SlowLock,1
  108.     nop
  109. ReturnHappy:
  110.     ret
  111.     restore
  112. @
  113.  
  114.  
  115. 1.1
  116. log
  117. @Initial revision
  118. @
  119. text
  120. @d17 1
  121. a17 1
  122.     .asciz "$Header: Sync_GetLock.s,v 1.1 88/06/19 14:34:17 ouster Exp $ SPRITE (Berkeley)"
  123. d74 1
  124. a74 5
  125. #ifdef NOTDEF
  126.     swap    [%i0], %i0         /* Atomically get value and set it. */
  127. #else
  128.     clr        %i0
  129. #endif NOTDFEF
  130. @
  131.